home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / tbsrc / file2.bas < prev    next >
BASIC Source File  |  1994-10-09  |  7KB  |  220 lines
  1. Option Explicit
  2.  
  3. Global Const ToolCnt = 10
  4.  
  5. Sub ToolCalled (nr As Integer, Status As Label)
  6.     Select Case nr
  7.         Case 0
  8.             vbQHEnabled 0, False
  9.             MsgBox "Function 0"
  10.         Case 1
  11.             vbQHEnabled 1, False
  12.             MsgBox "Function 1"
  13.         Case 2
  14.             vbQHEnabled 2, False
  15.             MsgBox "Function 2"
  16.         Case 3
  17.             vbQHEnabled 3, False
  18.             MsgBox "Function 3"
  19.         Case 4
  20.             vbQHEnabled 4, False
  21.             MsgBox "Function 4"
  22.         Case 5
  23.             vbQHEnabled 1, True
  24.             vbQHEnabled 2, True
  25.             vbQHEnabled 3, True
  26.             MsgBox "Function 5"
  27.         Case 6
  28.             MsgBox "Function 6"
  29.         Case 7
  30.             MsgBox "Function 7"
  31.         Case 8
  32.             MsgBox "Function 8"
  33.         Case 9
  34.             If MsgBox("Exit App?", 36) = 6 Then Unload wndMain
  35.     End Select
  36. End Sub
  37.  
  38.  
  39. Sub ToolCopy (Target As PictureBox)
  40. Dim i As Integer
  41. Dim temp1$, temp2$
  42. Dim TempTool As ToolType
  43.     vbQHUsed True
  44.     vbQHInitTools ToolCnt, wndToolbar, Target, Target.Parent.MenuO_Sho, wndMain.Status, "Ready"
  45.     Load wndResources
  46.  
  47.     i = InStr(wndResources.Tool(0).Tag, ";")
  48.     If i Then
  49.         temp1$ = Left$(wndResources.Tool(0).Tag, i - 1)
  50.         temp2$ = Right$(wndResources.Tool(0).Tag, Len(wndResources.Tool(0).Tag) - i)
  51.     Else
  52.         temp1$ = wndResources.Tool(0).Tag
  53.     End If
  54.     TempTool.Group = 1
  55.     TempTool.Visible = True
  56.     TempTool.Enabled = True
  57.     TempTool.qHelp = True
  58.     TempTool.StatText = temp1$
  59.     TempTool.MouseText = temp2$
  60.     TempTool.UseMouse = True
  61.     TempTool.CopyPicture = True
  62.     vbQHCopyToolExt TempTool, 0, wndResources.Tool(0), Target
  63.  
  64.     i = InStr(wndResources.Tool(1).Tag, ";")
  65.     If i Then
  66.         temp1$ = Left$(wndResources.Tool(1).Tag, i - 1)
  67.         temp2$ = Right$(wndResources.Tool(1).Tag, Len(wndResources.Tool(1).Tag) - i)
  68.     Else
  69.         temp1$ = wndResources.Tool(1).Tag
  70.     End If
  71.     TempTool.Group = 1
  72.     TempTool.Visible = True
  73.     TempTool.Enabled = True
  74.     TempTool.qHelp = True
  75.     TempTool.StatText = temp1$
  76.     TempTool.MouseText = temp2$
  77.     TempTool.UseMouse = True
  78.     TempTool.CopyPicture = True
  79.     vbQHCopyToolExt TempTool, 1, wndResources.Tool(1), Target
  80.  
  81.     i = InStr(wndResources.Tool(2).Tag, ";")
  82.     If i Then
  83.         temp1$ = Left$(wndResources.Tool(2).Tag, i - 1)
  84.         temp2$ = Right$(wndResources.Tool(2).Tag, Len(wndResources.Tool(2).Tag) - i)
  85.     Else
  86.         temp1$ = wndResources.Tool(2).Tag
  87.     End If
  88.     TempTool.Group = 1
  89.     TempTool.Visible = True
  90.     TempTool.Enabled = True
  91.     TempTool.qHelp = True
  92.     TempTool.StatText = temp1$
  93.     TempTool.MouseText = temp2$
  94.     TempTool.UseMouse = True
  95.     TempTool.CopyPicture = True
  96.     vbQHCopyToolExt TempTool, 2, wndResources.Tool(2), Target
  97.  
  98.     i = InStr(wndResources.Tool(3).Tag, ";")
  99.     If i Then
  100.         temp1$ = Left$(wndResources.Tool(3).Tag, i - 1)
  101.         temp2$ = Right$(wndResources.Tool(3).Tag, Len(wndResources.Tool(3).Tag) - i)
  102.     Else
  103.         temp1$ = wndResources.Tool(3).Tag
  104.     End If
  105.     TempTool.Group = 2
  106.     TempTool.Visible = True
  107.     TempTool.Enabled = True
  108.     TempTool.qHelp = True
  109.     TempTool.StatText = temp1$
  110.     TempTool.MouseText = temp2$
  111.     TempTool.UseMouse = True
  112.     TempTool.CopyPicture = True
  113.     vbQHCopyToolExt TempTool, 3, wndResources.Tool(3), Target
  114.  
  115.     i = InStr(wndResources.Tool(4).Tag, ";")
  116.     If i Then
  117.         temp1$ = Left$(wndResources.Tool(4).Tag, i - 1)
  118.         temp2$ = Right$(wndResources.Tool(4).Tag, Len(wndResources.Tool(4).Tag) - i)
  119.     Else
  120.         temp1$ = wndResources.Tool(4).Tag
  121.     End If
  122.     TempTool.Group = 2
  123.     TempTool.Visible = True
  124.     TempTool.Enabled = True
  125.     TempTool.qHelp = True
  126.     TempTool.StatText = temp1$
  127.     TempTool.MouseText = temp2$
  128.     TempTool.UseMouse = True
  129.     TempTool.CopyPicture = True
  130.     vbQHCopyToolExt TempTool, 4, wndResources.Tool(4), Target
  131.  
  132.     i = InStr(wndResources.Tool(5).Tag, ";")
  133.     If i Then
  134.         temp1$ = Left$(wndResources.Tool(5).Tag, i - 1)
  135.         temp2$ = Right$(wndResources.Tool(5).Tag, Len(wndResources.Tool(5).Tag) - i)
  136.     Else
  137.         temp1$ = wndResources.Tool(5).Tag
  138.     End If
  139.     TempTool.Group = 2
  140.     TempTool.Visible = True
  141.     TempTool.Enabled = True
  142.     TempTool.qHelp = True
  143.     TempTool.StatText = temp1$
  144.     TempTool.MouseText = temp2$
  145.     TempTool.UseMouse = True
  146.     TempTool.CopyPicture = True
  147.     vbQHCopyToolExt TempTool, 5, wndResources.Tool(5), Target
  148.  
  149.     i = InStr(wndResources.Tool(6).Tag, ";")
  150.     If i Then
  151.         temp1$ = Left$(wndResources.Tool(6).Tag, i - 1)
  152.         temp2$ = Right$(wndResources.Tool(6).Tag, Len(wndResources.Tool(6).Tag) - i)
  153.     Else
  154.         temp1$ = wndResources.Tool(6).Tag
  155.     End If
  156.     TempTool.Group = 3
  157.     TempTool.Visible = True
  158.     TempTool.Enabled = True
  159.     TempTool.qHelp = True
  160.     TempTool.StatText = temp1$
  161.     TempTool.MouseText = temp2$
  162.     TempTool.UseMouse = True
  163.     TempTool.CopyPicture = True
  164.     vbQHCopyToolExt TempTool, 6, wndResources.Tool(6), Target
  165.  
  166.     i = InStr(wndResources.Tool(7).Tag, ";")
  167.     If i Then
  168.         temp1$ = Left$(wndResources.Tool(7).Tag, i - 1)
  169.         temp2$ = Right$(wndResources.Tool(7).Tag, Len(wndResources.Tool(7).Tag) - i)
  170.     Else
  171.         temp1$ = wndResources.Tool(7).Tag
  172.     End If
  173.     TempTool.Group = 3
  174.     TempTool.Visible = True
  175.     TempTool.Enabled = True
  176.     TempTool.qHelp = True
  177.     TempTool.StatText = temp1$
  178.     TempTool.MouseText = temp2$
  179.     TempTool.UseMouse = True
  180.     TempTool.CopyPicture = True
  181.     vbQHCopyToolExt TempTool, 7, wndResources.Tool(7), Target
  182.  
  183.     i = InStr(wndResources.Tool(8).Tag, ";")
  184.     If i Then
  185.         temp1$ = Left$(wndResources.Tool(8).Tag, i - 1)
  186.         temp2$ = Right$(wndResources.Tool(8).Tag, Len(wndResources.Tool(8).Tag) - i)
  187.     Else
  188.         temp1$ = wndResources.Tool(8).Tag
  189.     End If
  190.     TempTool.Group = 3
  191.     TempTool.Visible = True
  192.     TempTool.Enabled = True
  193.     TempTool.qHelp = True
  194.     TempTool.StatText = temp1$
  195.     TempTool.MouseText = temp2$
  196.     TempTool.UseMouse = True
  197.     TempTool.CopyPicture = True
  198.     vbQHCopyToolExt TempTool, 8, wndResources.Tool(8), Target
  199.  
  200.     i = InStr(wndResources.Tool(9).Tag, ";")
  201.     If i Then
  202.         temp1$ = Left$(wndResources.Tool(9).Tag, i - 1)
  203.         temp2$ = Right$(wndResources.Tool(9).Tag, Len(wndResources.Tool(9).Tag) - i)
  204.     Else
  205.         temp1$ = wndResources.Tool(9).Tag
  206.     End If
  207.     TempTool.Group = 3
  208.     TempTool.Visible = True
  209.     TempTool.Enabled = True
  210.     TempTool.qHelp = True
  211.     TempTool.StatText = temp1$
  212.     TempTool.MouseText = temp2$
  213.     TempTool.UseMouse = True
  214.     TempTool.CopyPicture = True
  215.     vbQHCopyToolExt TempTool, 9, wndResources.Tool(9), Target
  216.     Unload wndResources
  217. End Sub
  218.  
  219.  
  220.